
***************************************************
* Figure B.3
***************************************************

global dp1  = "111, 115" 
global dp2  = "213, 214, 215, 216, 217, 218, 219" /**/
global dp3  = "231, 299" 
global dp = "${dp1},${dp2},${dp3}"


use "$workdata/baseline", clear /* see $data_do/baseline.do */

g ui=inlist(y,$dp)


collapse ui (sum) e if age_q>=21 & age_q<29, by(age_q) 
twoway line ui age_q, lwidth(medthick) ///
scheme(s1mono) xline(24.958333) ylabel(0(0.02)0.1) xlabel(21(1)29) ///
xtitle("Age in months", height(5)) ytitle("UIB", height(5)) ///
name(figB3, replace)

graph save figB3  $figures/figB3, replace
graph export $figures/figB3.pdf, name(figB3) replace
graph export $figures/figB3.png, name(figB3) replace

***************************************************
* end: Figure B.3
***************************************************

